home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet Pratica
/
IPRAT_01.iso
/
ASP
/
ASPapp Portal
/
aa_login.asp
< prev
next >
Wrap
Text File
|
2002-03-12
|
2KB
|
74 lines
<%
%>
<%
dim login_form_sql
sub request_login_form
''' request expected input parameters for this form
user_name = request("user_name")
password = request("password")
submit = request("submit")
registerlink = request("registerlink")
end sub
sub validate_login_form
''' request and validate data entered from this form
user_name = trim(request("user_name"))
if user_name = "" then
error_list.add "485220","username must be specified."
b_error = true
end if
password = trim(request("password"))
if password = "" then
error_list.add "485221","password must be specified."
b_error = true
end if
submit = trim(request("submit"))
registerlink = trim(request("registerlink"))
end sub
sub get_defaults_login_form
''' set default values for this form
submit = "LOGIN"
registerlink = "click here to register"
end sub
do_search = request("do_search")
''' request form keys
''' request action
action = lcase(request("action"))
''' action case handler
select case action
end select
' no action was specified, so handle the default case(s)
get_defaults_login_form
%>
<table >
<form name="login_form" action="" method="POST" >
<tr>
<td class='dataTD' >
<input type=text name="user_name" size="" maxlength="" value="<% =user_name%>">
</td>
<td class='dataTD' >
<input type=password name="password" size="" maxlength="" value="<% =password %>">
</td>
<td class='dataTD' >
<input class=cmd type=submit name="submit" value="LOGIN" >
</td>
<td class='dataTD' >
<a href="register.asp"><% =registerlink %></a>
</td>
</tr>
<input type=hidden name="do_search" value="1">
</form>
</table>